home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / mint / mntlib25 / alloca.s < prev    next >
Text File  |  1992-09-29  |  509b  |  25 lines
  1. #APP
  2. # 
  3. #  alloca(nbytes) allocate junk in stack frame
  4. #
  5. #  void *alloca(size_t size)
  6. # 
  7.  
  8.     .text
  9.      .even
  10.  
  11. .globl    _alloca
  12. _alloca:
  13.     movel    sp@+,a0        | get return addr
  14.     movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  15.  
  16.     addql    #1,d0        | ensure address even
  17.     bclr    #0,d0        | lop off odd bit
  18.  
  19.     subl    d0,sp        | increase stack frame size by that much
  20.     movel    sp,d0        | set up to return it
  21.  
  22.     lea    sp@(-4),sp    | new top of stack (real bug fix here)
  23.  
  24.     jmp    a0@        | return by jmping via saved addr
  25.